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OnncaHHe ajiropHTMa nocTpoeHHa HHTerpajibHoro npe^cTaBJieHHH 
no Beepy TopHHecKoro MHoroo6pa3HH 



A.A.KbiTMaHOB^ 



AHHOTaLl,HH 



B HacTOHmeit pa6oTe npHBOflHTCH onncaHHe ajiropHTMa KOMnbroTepHoit ajire6pbi, 
peajiHsyiomero nocTpoeHHe TopHHecKoro MHoroo6pa3HH no ero Beepy h nocTpoeHHe 
iiHTerpajibHoro npe^cTaBjieHHH b npocTpancTBe C"', CBHsaHHoro c ^annbiM TopHHe- 
CKHM MHoroo6pa3HeM. AjiropHTMbi 5bijiH pa3pa6oTaHbi c noMoiii,bio MeTo^oB, onn- 
I caHHbix B pa6oTe [1]. 

. OnnmeM npon;eflypy Tor ic Variety, peajinayiomyio KOHCTpyKn;Hio TopHHecKoro mho- 

rooGpasHH h CBasaHHoro c hhm HHTerpajibHoro npe;];cTaBjieHH3. Bxo^^hmmh ;];aHHbiMH 
npoii;eflypt>i 5ibji5iiotc3 naGop BCKTopoB (o^HOMepHbix oGpasyiomnx) Beepa S h naGop 

PsJ I H3 HOMepOB BCKTOpOB, o6pa3yiOiri;HX KOHyCbl MaKCHMajIbHOH paSMepHOCTH B S. 

ToricVariety := procedure(f ec_/is)f:, cone_list) 
d := HHCJio sjieMeHTOB b vec_list 

n := HHCJio sjieMCHTOB b nepBOM sjieMCHTe h3 vec_list 
' V := nycTOH chhcok, Z := nycTofl chhcok 

J3 ' Z2 := nycTOH chhcok, Dz := nycToii chhcok 

for i from 1 to do 
floGaBHTb B V sjieMCHT v[i], floGaBHTb B Z sjieMeHT z[i], 
^ , ;];o6aBHTb B Z2 sjieMenx ;],o6aBHTB b Dz sjieMenx dz[i] 

Q\ I end do 

^ ' print ("PaccMoxpHM xopHHecKoe MHorooGpaane, Beep Koxoporo aa^an BeKxopaMH") 

jy-^ . for i from 1 to c? do 

^ '. print = vec_list[i]) 

O I end do 

^ ' CL := nycxoli chhcok 

for i from 1 to hhcjio sjieMenxoB b cone_list do 
CI := HycxoH chhcok 

for j from 1 to hhcjio sjicMenxoB b cone_list[i\ do 
5^ ! := f [cone_/zst[?][j]] 

^o6aBHXB B CI SJICMCHX t[j] 

end do 

floGaBHXB B CL SJICMCHX CI 

end do 

print ("KoHycbi MaKCHMajibHOH pasMepnocxn HopojK^eHbi BeKxopaMH:") 
print (sjieMCHXbi CL) 

% KoHcxpyKH,Ha xopHHecKoro MHoroo6pa3HH 

LR := LinRel(f ec_/ist) 

V _LR := HycxoH chhcok, W := nycxoii chhcok 
for i from 1 to hhcjio 3jieMeHxoB b LR do 
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floGasHTi. B V _LR cyMMy sjieivieHTOB cnncKa Li?[i], yMHoaceHHtix na cooTBeTCTByio- 
mne sjieMeHTbi cnncKa V 

;];o6aBHTb B W cyMMy sjieivieHTOB cnncKa LR[i\, yMHOJKeHHbix na cooTBeTCTByiomHe 
3jieMeHTbi cnHCKa Z2 
end do 

P := nycToii chhcok 

for i from 1 to hhcjio sjieMCHTOB b LR do 

;];o6aBHTi> B P sjieMeHT p[i\ 
end do 

p := BeKTop H3 sjieMeHTOB cnncKa P 

print ("Bee nesaBHeHMbie jiHHeiiHbie eooTHomeHHa na BexTopa saflaHHoro Beepa aafla- 
lOTea encTeMofl:") 
for i from 1 to hhcjio sjieivieHTOB b LR do 

prmtiy_LR[i] = 0) 
end do 

M := Matrix(Li?) 

vv := o6n];ee pemeHne OflHopoflHoii CJIAY, 3aflaioii];eHefl MaTpni^eii M eo eBoSoflHbiMH 
nepeMeHHbiMH Vi 
VV := nyeTOH enneoK 
for i from 1 to d do 

floSaBHTb B VV sjieMeHT v[i] — vv[i] 
end do 

L power := chhcok h3 eT0Ji6u,0B MaTpHn;i.i M 

A := nycTOH chhcok 

for i from 1 to d — n do 

floSaBHTb B A sjieMeHT X[i] 
end do 

G := HycToii chhcok 
for i from 1 to o? do 

floSaBHTb B G npoH3BefleHHe sjieivieHTOB enncKa A, BOSBefleHHbix b CTeneHH cooTBeT- 
CTByK)Hi,Hx sjieMeHTOB CHHCKa L_power[i\ 
end do 

PC := PrimColl(cone_/ist) 

print ("3aflaHHoe TopHHccKoe MHorooGpaane X sBjiaeTca 4)aKTop-HpocTpaHCTBOM:") 
print(X=(C'^\Z(S))/G') 

print ("Sflecb CHHryjiapnoe MHoacecTBO ^(E) ecTb oSteflKHeHne KOopflHHaTHBix noflnpo- 
CTpancTB z[i[l\] = . . . — z[i[n\] — 0, r^e {i[l], . . . , i[n]} e P(7") 
print ('TpyHHa G flBjiaeTCfl d — n-napaMeTpHHecKofi noBepxHOCTBK) b C^") 
print (G) 

% KoHCTpyKH;Hfl KOHyea Ksjiepa 

Z_s := HycToii chhcok, Z_v := nycToii chhcok 
for i from 1 to hhcjio sjieMCHTOB b PC do 
z_s := iiycTOH chhcok, z_v := iiycToii chhcok 
for j from 1 to hhcjio sjieivieHTOB b PC[i] do 
ts[j] := \z[PCm]\' 
t[j] := v[PG\i][j]] 
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floSaBHTb B Z_S SJieMeHT ts\j] 

floSasHTb B z_v sjieMeHT t\j] 
end do 

flo6aBHTb B Z _S 3JieMeHT z_s 
floSaBHTb B Z_V SJieMeHT z_v 

end do 

z_s := nycToii cnncoK, z_v := nycToii chhcok 
for i from 1 to hhcjio sjieMeHTOB b Z_v do 

flo6aBHTt> B z_s cyMMy sjieMCHTOB cnHCKa Z _s[i] 

floSaBHTb B z_v cyMMy sjieMeHTOB cnncKa Z_v[i] 
end do 

for i from 1 to (i do 

v[i] := vec_Hst[i] 
end do 

zero := nycToii chhcok 
for i from 1 to n do 

;j,o6aBHTi. B zero sjieivieHT 
end do 

Kahler := nycTOH chhcok 
for i from 1 to hhcjio sjieMCHTOB b z_v do 
ss := 

if (sHaHCHHC 2_t'[i])=zero then 

for j from 1 to hhcjio sjieMCHTOB b LR do 
if = V_LR[j] then flo6aBHTb b Kahler sjieMCHT rho[j] end if 

end do 
else 

for j from 1 to hhcjio sjieMCHTOB b CL do 
t := sjieMCHTbi (LinRel([(-l)*(3HaHeHHe 2;_v[i]),(3HaHeHHe CL[;])])) 
s := 

for k from 1 to hhcjio sjieivieHTOB b t do 

if t[k] < then s := 1 end if 
end do 

if s = and ss = then 

tt := [z_v[i], {-irCL[j]] 

s := cyMMa sjieMCHTOB cnncKa t, yMHOJKeHHbix na cooTBeTCTByiomHe sjieMeHTbi 

CHHCKa tt 

floSaBHTb B Kahler sjieivieHTbi HOflCTanoBKH VV b BbipaaccHHe s 
ss := 1 
end if 
end do 
end if 
end do 

print ("Konyc Ksjiepa flaHHoro TopHHecKoro MHoroo6pa3Hfl OHpeflejiaeTCfl cjieflyK)Hi,eH 

CHCXeMOH HCpaBCHCTB:") 

for i from 1 to hhcjio sjiejvieHTOB b Kahler do 

print {Kahler[i] > 0) 
end do 
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% BbiHHCJieHHe 4)opMi>i h{z) b nncjiHTejie flH4)4)epeHii,Hajii>HOH 4)opMi>i ou 
H ■=Q 

Dd := nycToe MHoacecTBO 
for i from 1 to d do 

^o6aBHTb B Dd 3jieMeHT i 
end do 

s := SetOfAllSubsets(Dd, n) 

for i from 1 to hhcjio sjieMeHTOB b s do 

^ -j^ ^ (cVMMa SJieMeHTOB MHOJKeCTBa s[t]— 1) 

t := pasHocTB MHOJKecTB Dd H s[i] 
sz := 1 

for j from 1 to hhcjio sjieivieHTOB b s\i\ do 

sz := sz A 
end do 

tt := nycTOH chhcok 
tz := 1 

for j from 1 to hhcjio sjieivieHTOB b t do 

floSaBHTb B 3jieMeHT L_power[t\j]\ 

tz := * z[t[j]] 
end do 

/I := onpeflejiHTejiB MaTpHii,t>i, nocxpoeHHott na Bexxopax h3 cnncKa tt 
H := H + ss * A * tz * sz 
end do 

% BbiHHCJieHHe 3HaMeHaxejifl flHcJxJjepeHi^HajiBHOH 4)opMi>i ou 

tt := nycxoii cnncoK 
ss := nycxoii chhcok 
g:=0 

for i from 1 to hhcjio sjieMenxoB b cone_list do 
flo6aBHXb B tt pasHocxb MHOJKecxB Dd h cone _list[i\ 
s := nycxoe MHoacecxBO 
t := 1 

for j from 1 to hhcjio sjieMenxoB b tt[i\ do 

flo6aBHXb B S SJieMenX |^[ii[i][j]]|2*(nu_sigma(^ec_Ust,Permut(cone_Hst[i],tt[i]bD)+l) 

t:=t* s\j] 
end do 

floGaBHXb B ss SJieMSHX s 

:= 5f + t 

end do 

print ("HflpoM HHxerpajiBHoro iipe^cxaBjieHHa SBjiaexca flH4)4)epeHii,HajibHa5i cjDopMa") 
print(cc;(2;) = h{z) A dz/g{z,z)) 
print (" r^e 4)opMa h{z) =") 
print (if) 

print (" a dz — dpopua,:") 

print (BHeniHee iipoHSBe^eHHe sjieMeHXOB Dz) 
print (" SnaMeHaTejib g{z,^) — (J)yHKii,HH") 
print (^) 
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print ("OCHOBHOH PESYJlbTAT") 

print ("riycTb 4)yHKi];Ha f{z) rojiOMop4)Ha b oSjiacTH W, onpeflejiaiomeHCfl HepaseH- 

CTBaMH") 

for i from 1 to "ihcjio sjieMeHTOB b LR do 

print(Vr[i] < P[i]) 
end do 

print ("h HenpepbiBHa b saMbiKaHHH W. Torfla b nepeceneHnH D r\W, r^e oSjiacTb D, 
onpe;];ejiHeTCH HepaBencTBaMH") 
for i from 1 to hhcjio sjieMenxoB b z_s do 

print(^_s[i] < Kahler[i]) 
end do 

print ("cnpaBe;],jiHBo HiiTcrpajitHoe npeflCTaBjieHne") 

print(/(C) = ^ / f{zMz-0) 
r(p) 

print ("rfle i];hkji r(p) onpeflejiaeTCfl paBencTBaMH") 
for i from 1 to hhcjio sjieivieHTOB b LR do 

print(W^[i] = P\i]) 
end do 

print ("a KOHCTaHTa C — J u{z) > 0.") 

r 

end procedure 

Ilpoixeflypa. LinRel no 3a/],aHHOMy Ha6opy BeKTopoB vec_list BBiHHCjMeT Bce HesaBH- 
CHMbie jiHHeiiHbie cooxHomeHHa na hhx. Ha Bbixofle npoii,eflypa Bbiflaex chhcok bcktopob- 

CXpOK MaTpHII,bI JIHHeHHblX COOTHOmeHHH. 

LinRel := procedure(t>ec_/ist) 
d := HHCJio sjieMeHTOB b veciist 
n := HHCjio sjiCMCHTOB B veciist[l\ 
for i from 2 to d do 
if HHCjio 3JICMCHTOB B vec_list[i] ^ n then 
print ("BeKTopa /j,oji>khm hmctb o^HnaKOByio ^Jinny!") 
return 
end if 
end do 

B := iiycTOH cimcoK 
for i from 1 to n do 

floSaBHTb B B sjieMeHT 
end do 

b := BCKTOp H3 SJieMCHTOB CHHCKa B 

V := MaTpima, iiocTpoeHHaa Ha BCKTopax hx vec_list 

GenSol := o6mee pemeHHe oflHopoflHoii CJIAY, saflaHHofl MaTpHii,eH V co cboGoahbimh 
nepeMeHHbiMH s[i] 
S := ciiHcoK H3 Bcex CBoSoflHbix nepeMeHHbix GenSol 
Funds ol := nycToe MHOJKecTBO 
for i from 1 to hhcjio 3jieMeHTOB b S do 

m := 1 

for j from 1 to hhcjio sjieivieHTOB b 5" - 1 do 
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if i + J = HHCJio sjieMeHTOB B 5" then k := i + j else k := i + j no MOflyjiio HHCJia 
sjieMeHTOB B S) end if 
T[k] := 
end do 

a := nycToii chhcok 

for j from 1 to hhcjio sjieivieHTOB b 5" do 

flo6aBHTb B a sjieMeHT T[j] 
end do 

St := S 
k:=0 

for j from 1 to d do 

if St saBHCHT OT SHaneHHA s[j] then 

St := pasHOCTb MHoacecTB St h s\j] 

k:= k + 1 

s\j] := a[k] 
end if 
end do 

floBaBHTi. B FundSol SHaneHHe GenSol 
end do 

returTa.{FundSol, OTcopiHpoBaHHbiii no yStiBaHHio) 
end procedure 

npoij,eflypa PrimColl no 3a/i,aHHOMy naGopy noMepoB BexxopoB cone_list, cocTaB- 
jifliomHx KOHycBi MaKCHMajiBHoii pasMepHOCTH B Beepe, BbinHCJiaeT Bce npHMHTHBHbie 
HaSopti BeKTopoB Beepa. 

PrimColl := procedure{cone_list) 

m := HHCjio sjieMCHTOB b cone^list 
n := Hiicjio sjicMeHTOB b cone _list[l] 
for i from 2 to m do 
if HHCJio sjieMeHTOB B cone _list[i\ ^ n then 
print ("Bce KonycBi flOJiacHbi HMeTb oflHHaKOByio pasMepHOCTb!") 
return 
end if 
end do 

ConeSet := MHOJKecTBO h3 sjieivieHTOB cone_list 
ConeUnion := oGte^HHeHHe Bcex sjieivieHTOB ConeSet 
AUG ones := nycToe MHOJKecTBo 
for i from 1 to hucro sjieMCHTOB b ConeSet do 

flo6aBHTt> B AUG ones sjieMCHT SetOfAllSubsets(Cone5'et[i], 0) 
end do 

AllGoll := SetOfAllSubsets(ConeC/mon, 0) 

S := pasHOCTb mho^kcctb AllGoll h AUG ones 

PrimGoll := nycToe MHoacecTBO 

for i from 1 to hhcjio sjieMCHTOB b S do 

if SubsetsMinusl(5'[i]) aBjiaeTca noflMHoacecTBOM AllGones then 
flo6aBHTb B PrimGoll sjieivieHT S[{\ 

end if 
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end do 

return{P rimC oil) 
end procedure 

npoii,eflypa nu_sigma BbinHCJiaeT noKaaaTejiH u^"" no 4)opMyjie 

n 

-^det{Vrm, . . . ,Vmi_„Vi,Vmi+„ . . . ,VmJ, (l) 
i=l 

HciiojibsyH iipoLi,e^ypy Permut, KOTopaa, iiojiynaa na Bxo^e BCKTop h hhcjio, Bbi^aex 
CHHCOK BeKTopoB, iiojiyHaioin;Hxc3 H3 flaHHoro iiyxeM noflcxaHOBKH saflanHoro iHCJia, na 
nepBoe, BTopoe, h xax ^ajiee, MecTa. Ha Bxofle nu_sigma nojiynaeT chhcok bcktopob 
Beepa h peayjibxaT noflCTanoBKH nncjia I b bcktop (mi, . . . , m„) h3 (1). 

(1) 

Permut := procedure(c_Zist, vecnum) 
n := HHCjio sjieMeHTOB b c_list 
NS := nycTOH cnncoK 
for i from 1 to n do 
t := nycTOH chhcok 
for j from 1 to i — 1 do 

ppGaBHTh B t sjieMCHT c_list\j] 
end do 

floSaBHTb B t sjieMeHT vecnum 
for j from i + 1 to n do 

floSaBHTb B t sjieMCHT c_list\j] 
end do 

floGaBHTb B NS SJieMCHT t 

end do 
return(A^,S) 
end procedure 

nu_sigma := procedure(^;_Zisi, l_list) 

n := HHCJIO SJieMCHTOB B l_list 

ns := 

for i from 1 to n do 

t := HyCTOH CHHCOK 

for j from 1 to n do 

floSaBHTb B t sjieMCHT [;']] 
end do 

ns := ns + onpeflejiHTejib MaTpHn,t>i, nocTpoeHHoii na BexTopax h3 t 
end do 

return((— 1) * ns) 
end procedure 

npoH,eflypi.i SubsetsMinusl h SetOfAUSubsets mojkho othccth k paapafly bcho- 
MoraTejiBHbix. Ilpoixepypa SubsetsMinusl iiojiynaeT na Bxojie MHOJKecTBO h Bhip^aeT 

MHOJKeCTBO BCeX IIOflMHOKeCTB flaHHOrO MHOJKeCTBa C HHCJIOM SJieMeHTOB Ha e/j,HHHn,y 

MeHbHiHM HHCJia sjieMeHTOB BxoflHoro MHOJKecTBa. npou,eflypa SetOfAUSubsets nojiy- 
nacT na Bxo^e mhojkcctbo h HeoTpHH,aTejiBHoe H;ejioe hhcjio K. Ecjih K — 0,to HpoH;eflypa 
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BbiflaeT MHOJKecTBO Bcex noflMHOJKecTB flaHHoro MHOJKecTBa. EcjiH K > 0, TO npoii,eflypa 
BBiflaeT MHOJKecTBO Bcex noflMHoacecTB flaHHoro MHoacecTBa, cocToamHx h3 K sjieivieHTOB. 

SubsetsMinusl := procedure (inset) 

n := HHCjio sjieMCHTOB b inset 
outset := iiycToe MHOJKecTBO 
for i from 1 to n do 

floSaBHTb B outset paanocTb MHOJKecTB inset h inset[i] 
end do 
retum{outset) 
end procedure 

SetOfAllSubsets := procedure(sei, K) 

S := iiycToe MHOxcecTBO 

T := MHoacecTBo sjieMenxoB hs set 

for i from 1 to hhcjio sjieivieHTOB b set — K do 

P := nycToe MHOJKecTBO 

for j from 1 to hhcjio sjieMenxoB b T do 
R := SubsetsMinusl(T[j]) 

flo6aBHTt> B P SJieMCHT R 

end do 

T := P 

flo6aBHTi. B 5* sjieMeHT T 
end do 
ii K = then 

floSaBHTb B S SJieMBHT Set 

return (5") 
else return (T) 
end if 
end procedure 

CnHCOK jiHTepaxypbi 

[1] KbiTMAHOB A. A. 06 anajiore npeflCTaBjiennH BoxHepa-MapTHHejijiii b d-KpyroBbix nojiH- 
3flpax npocTpancTBa / / Hsb. BysoB. MaTSMaTHKa. 2005. 3 (514). C. 52-58. 
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